home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / win_utl2 / pspa370a.zip / EXAMPL17.POM < prev    next >
Text File  |  1996-04-26  |  324b  |  10 lines
  1. BEGIN    $FLINE ^ "Tomato"
  2.   LOG      "Y" = "Y" "The word was found in the following line:"
  3.   TRIM     $FLINE "B" " "
  4.   LOG      "Y" = "Y" $FLINE
  5.   PARSE    inpfname $COMMAND "2* " "3* "
  6.   SET      message = "The file containing ""Tomato"" is: "
  7.   APPEND   message message inpfname
  8.   HALT     "Y" = "Y" message
  9. END
  10.